#!/usr/bin/perl
$txt='11:Jan:2019 "This is an Example!"';
$re1='.*?';
$re2='.';
$re3='.*?';
$re4='.';
$re5='.*?';
$re6='.';
$re7='.*?';
$re8='.';
$re9='.*?';
$re10='.';
$re11='.*?';
$re12='.';
$re13='.*?';
$re14='.';
$re15='(.)';
$re16='.*?';
$re17='.';
$re18='.*?';
$re19='.';
$re20='.*?';
$re21='.';
$re22='.*?';
$re23='.';
$re24='.*?';
$re25='.';
$re26='.*?';
$re27='.';
$re28='.*?';
$re29='.';
$re30='.*?';
$re31='.';
$re32='.*?';
$re33='.';
$re34='.*?';
$re35='.';
$re36='.*?';
$re37='.';
$re38='.*?';
$re39='(.)';
$re=$re1.$re2.$re3.$re4.$re5.$re6.$re7.$re8.$re9.$re10.$re11.$re12.$re13.$re14.$re15.$re16.$re17.$re18.$re19.$re20.$re21.$re22.$re23.$re24.$re25.$re26.$re27.$re28.$re29.$re30.$re31.$re32.$re33.$re34.$re35.$re36.$re37.$re38.$re39;
if ($txt =~ m/$re/is)
{
$c1=$1;
$c2=$2;
print "($c1) ($c2) \n";
}
|