perl -e 'print qq|$_\n| for q|tttt $x=123 ttt @c=qw/1 2 3/; tt $xxx ttttt @something|=~/([\$\@\%]\w+)/g'
$x
@c
$xxx
@something