#!/usr/bin/perl -w
use strict;
use Cwd;

my $dir = '/script/projects';

opendir DIR, $dir or die "Cannot open directory '$dir' $!";

my ( $job ) = grep /^(?:r[spe]|tv|pr|do)\d{7}$/, readdir DIR;

defined $job or die "Job file not found! Check directory!\n";

# etc.