#!/usr/bin/perl -w
#
use strict;

my $string = 48000;
my $regex = 's/...$//;';

eval("\$string =~ $regex");

print "STRING: $string\n";
# Gibt 48 aus