print {$pro_list} $1, "\n" if $artist_link->url() =~ /(\d{9})/;

##</code><code>##

if ($artist_link->url() =~ /(\d{9})/) {
    print {$pro_list} $1, "\n";
}