in reply to regexp $1 in a variable

change 
$b='\Qa(.)\E';

[download]
and it will work

UPDATE: wrong thought

In Section Seekers of Perl Wisdom