SYNOPSIS

     use Filename::Backup qw(check_backup_filename);
     my $res = check_backup_filename(filename => "foo.txt~");
     if ($res) {
         printf "Filename indicates a backup, original name: %s\n",
             $res->{original_filename};
     } else {
         print "Filename does not indicate a backup\n";
     }

DESCRIPTION

SEE ALSO

    Filename::Archive

    Filename::Compressed