#!/usr/bin/perl

use strict;
use warnings;

my @numbers = ('012345','0123456');
@numbers    = sort{length $b <=> length $a}@numbers;
my $regex   = join('|',@numbers);

my $string = '0123456778945';

$string =~ s!^($regex)(.*)!$1;$2!;
print $string;