#!/Perl/bin/perl

use strict;
use warnings;

my $str = q~
22\728.JPG
~;

my @str = split("\\", $str);
print join("\n",@str);