if ( $_[3] ) { $quality = $_[3] if ( $_[3] =~ /[1..100]/ ) ; }