my $binaryString = ...;

if( vec( $binaryString, 123, 1 ) == 1 ) {
    ## bit 123 was set
}
else {
    ## it wasn't
}