#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;

my $str = "name_of_file0000000546210618.A001.6476871457";
say $str =~ s/name_of_file\K\d*(?=\d{6}\.A\d{3})//r;