#!/usr/bin/perl -w
use strict;
$_='1:A silly sentence (495,a) *BUT* one which will be useful.(3)';
print"Enter a regular expression:";
my $expression=<STDIN>;
chomp($expression);
if(/$expression/)
{
       print"The expression matches the pattern\n";
       print"\$1 is $1\n",if defined $1;
       print"\$2 is $2\n",if defined $2;
       print"\$3 is $3\n",if defined $3;
}
else
{
   print"The pattern is not found \n";
}