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