#!C:/perl/bin/perl.exe use warnings; use strict; use re 'eval'; my $question="67.35 >= 50 && 67.35 < 80"; my $ans=ev($question); print "ans=$ans\n"; sub ev { ... ? }