1:11 >perl -wE "my $ext = 'txt'; my $file = 'example.txt'; say 'matches' if $file =~ /$ext$/;"
matches

 1:12 >