my $re = {
  null => qr{^\s*$},
  trim => qr{^\s* (\S(?:.*\S)?) \s*$}x,
  int  => sub {
    # 1引数: \d{m}, 2引数以上: \d{m,n}, 引数なし] \d{1,}
    my $mn = join ',', @_ ? ( $_[2] ? @_[0,1] : @_ ) : ( 1, '' );
    qr{^\s* (\d{$mn}) \s*$}x;
  },
};
 
my $hoge = '';
my $fuga = '  ほげほげ  ふがふが    ';
my $foo  = '2009';
my $bar  = ' 2008';
 
# 空白文字だけ
if( $hoge =~ $re->{null} ) {
  print '空白文字だけ．';
}
 
# 文字列の両端の空白を除去する
my $fuga_trimmed = sprintf '%s', $fuga =~ $re->{trim};
 
# 指定した桁数（の範囲）の整数としてマッチさせ，ついでに両端の空白も除去する
my $foo_int = sprintf '%d', $foo =~ $re->{int}->(4);
my $bar_int = sprintf '%d', $bar =~ $re->{int}->(2,4);

qr/.../;

qr{...};