Select Code to Download

  #!/usr/bin/perl -w
  use strict;
...
    print 'regex> ';
  }

  (fred|barney){3}

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;