01  #!/usr/bin/perl -w
02  use strict;
03  my $regexp = 'some$thing';
04  $_ = # PLEASE ENTER YOUR TEST STRING HERE
05  print "That's it!\n" if /$regexp/m;