ну чтение и запись в файл я думаю ты сам сможешь сделать

$osika = '438884348';

@IN = split(//, $osika);
@IN = grep{!$_{$_}++} @IN;

if (@IN < 4)
{
print $osika."\n";
}