This also seems to work (at least in perl 5.6.1):

/
 ^
   ( [\$%@*] | (<) )
   ( .* )
   (? (2) > )             # ( (2) stands for $2 (the (<) above))
 $
/x;
[download]

  p