#!/usr/bin/perl
$txt='12:Feb: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='.*?';
$re40='.';
$re41='.*?';
$re42='.';
$re43='.*?';
$re44='.';
$re45='.*?';
$re46='.';
$re47='.*?';
$re48='.';
$re49='.*?';
$re50='.';
$re51='.*?';
$re52='.';
$re53='.*?';
$re54='.';
$re55='.*?';
$re56='.';
$re57='.*?';
$re58='.';
$re59='(.)';
$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.$re40.$re41.$re42.$re43.$re44.$re45.$re46.$re47.$re48.$re49.$re50.$re51.$re52.$re53.$re54.$re55.$re56.$re57.$re58.$re59;
if ($txt =~ m/$re/is)
{
$c1=$1;
print "($c1) \n";
}
|