$a=~s#$#.pl#;