#!/usr/bin/perl -w
  use strict;

  print 'Please enter the RE to test: ';
  chomp( my $regexp = <STDIN> );

  print "Please enter your strings ('QUIT' to exit):\n";
  print 'regex> ';
  while ( <STDIN> ) {
    chomp;
    last if /^QUIT$/;
    if ( /$regexp/ ) {
      print "Match: |$`<$&>$'|\n";
    }
    else {
      print "No matches.\n";
    }
    print 'regex> ';
  }
 
##</code><code>##

  (fred|barney){3}
 
##</code><code>##

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;