0:23 >perl 497_SoPW.pl
First  substring is ' abcd1234'
Second substring is 'abcd abcd
'

 0:23 >