#!/usr/bin/perl
my $var = '@@VALUE= Some Company Name            @@';
print "$var\n";
$var =~ s/\s+(?=@@$)//g;
print "$var\n";