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

my $test="<blah>234</blah>";
my ($output) = $test =~ m/<blah>(.*?)<\/blah>/;

print $output;