#!/usr/bin/perl
use Data::Dumper;
$str = '
SOUND HOLIC - 博麗 -HAKUREI-
asdSOUND HOLIC - 博麗 -HAKUREI- Part 1
';

print Dumper $str =~ /^(.+?)(?:\s*Part \d+?\s*)?$/mg;