use warnings;
use strict;

my $string = q {...blah...<file fiop="foo" length="304507"/> SyncBookmarkRecordType12345·bjbjUU</file>...blah};

my $foo = qr {<file fiop="([a-z]+)" length="(\d+)"/> (.+)(?=</file>)};
 
if ($string =~ m#$foo#) {
   print "\nMatched \"fiop\" label: |$1|\nMatched Length: |$2|\nMatched data: |$3|\n";
} else {
   print "no match \n";
}

print "\nDone \n\n";