#! perl
use strict;
use warnings;

my  $xml   = '<xml><info><file>file:/path1/to/some/file.mxf</file></info>' .
             '<info><file>file:/path2/to/some/file.xml</file></info></xml>';
my  $lmx   = reverse $xml;
my ($htap) = $lmx =~ /lmx\.(.*?):elif/s;

if (defined $htap)
{
    my $path = reverse $htap;
    print "Path: $path\n";
}

##</code><code>##

23:32 >perl 1335_SoPW.pl
Path: /path2/to/some/file

23:32 >