#! /usr/bin/perl

$content = qq~<th width=15% align=right>Preis</th><script>
b(2302700,"3","Tunesien","DZ/HP","ATT","Kandelorleopatra",193);
b(2302900,"3","Tunesien","DZ/HP","FLY","Sultan-Sipahi",201);
</script>pt>~;

(@values) = $content =~ /b\([^\)]+?,(\d+)\)/g;

print $_,"\n" for(@values);