A
\@directcom (.*)
print STDOUT "\n\n /\$\\DIRECTOM! /\$\\  $1\n\n";
print "$1\n";