<td><b>0.088 $</b> (Тут вы можете взять себе немного копеек)</td>
(\d+\.\d+)
#!/usr/bin/perl -wmy $test_string = <<"EOF";<td><b>0.088 $</b> (Тут вы можете взять себе немного копеек)</td>EOFif ($test_string =~ m%<td><b>(\d+\.\d+)(Тут вы можете взять себе немного копеек)){ print "Yes: $1\n";}else{ print "No.\n";}
#!/usr/bin/perluse strict;use warnings;my $t_string = "<td><b>0.088 </b> (Тут вы можете взять себе немного копеек)</td>";if ($t_string =~ m/\d+\.\d+/){ print "Yes: $&\n";}else{ print "No.\n";}