$re=qr{^abc};
'abcdef' =~ $re;
'zabcdef' =~ $re;
$x='Some long and ugly text';
$x =~ /long and ugly/;

# and so on...