$string = q(<Revision MajorVersion="16" MinorVersion="2" BlahBlubb="4711" UserVersion="1" />);
$such_parameter = 'BlahBlubb';
($wert) = $string =~ m|<.*\Q${such_parameter}\E="(\d+)"[^>]+>|i;
say $wert;