"47 and the 10 characters thereafter" would translate into the regular expression /47.{10}/. Now you only need to repeatedly apply this regex to your string and capture/print the desired bits as described in http://perldoc.perl.org/perlre.html#Capture-groups.