http://www.perlmonks.org?node_id=11132725

chandantul has asked for the wisdom of the Perl Monks concerning the following question:

Hello Smart Monks, I am trying to figure the first digit 5 of 9 digits long string by regular expression. if this 9 digits long string starts with other then 5 then the code will ignore if its starts with 5 then it will write

Please check below i was trying but its not working for me. "503009496" and i was trying below

if (exists $hash2{$celln[$o]} && $celln[$o]=~ /^[5]+$/) { $worksheet->write($r +, 0, $hash2{$celln[$o]}); $worksheet->write($r +11, 1, $celln[$o]); # print "Arrays are different\n"; }