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

my @letters = qw(S C R A B B L);

open(DICT,"/usr/dict/words") or die $!;

while (<DICT>) {
        my $orig = $_;
        chomp;
        for my $letter (@letters) {s/$letter//i;}
        print $orig unless length;
}

close DICT;