perl -le'
    $_ = "..."; 
    s/[\.-]+//g;
    print substr $_, -4;
'